0 PRINT"[147]":POKE53280,0:POKE53281,0:POKE646,1
1 PRINT"COMMODARES PROBLEM #35-1"
2 PRINT"  ROUND ABOUT"
3 REM SOLUTION BY
4 REM     FRED SIMON
5 REM  *** FOR C-64 ***
9 REM ===  FOR CCW MOTION:
10 REM *REMOVE  REM  FROM LINES 150
15 REM   AND 220
20 REM *ADD  REM  TO START OF LINES 140
25 REM   AND 210
30 REM *CHANGE CC=22481 IN LINE 40
35 REM   TO CC=22587
40 CC=22481
50 INPUT"ENTER STRING:";W$:W$=CHR$(32)+W$+CHR$(32)
60 SP=20 :REM # OF 1/60TH SECOND DELAYS  BETWEEN INTERRUPTS
70 FOR AD=49152 TO 49311:READ X:POKE AD,X :CK=CK+X:NEXT
80 IF CK<>CC THEN PRINT  "ERROR IN DATA STATEMENTS" : END
90 POKE 49284,LEN(W$):FOR I=1 TO LEN(W$):POKE 49311+I,ASC(MID$(W$,I,1)):NEXT
100 POKE 792,0:POKE 793,192:POKE 56589,127:POKE 56589,130:POKE 56580,26
110 POKE 56581,20:POKE 56590,17:POKE 56582,SP:POKE 56583,0
120 PRINT CHR$(14)CHR$(147):POKE 56591,81:END
130 DATA 72,138,72,152,72,160,0,185,0,0,153,0,193,200,208,247,132,251,173,159
140 DATA 192,201,126,144,5,169,0,141,159,192,133,252,165,252,41,127
150 REM DATA 192,234,234,16,5,169,125,141,159,192,133,252,165,252,41,127
160 DATA 201,40,176,9,133,211,169,0,133,214,76,110,192,233,39,201,25,176,9,133
170 DATA 214,169,39,133,211,76,110,192,233,24,201,40,176,15,133,250,169,40
180 DATA 229,250,133,211,169,24,133,214,76,110,192,233,39,201,24,144,7,230
190 DATA 252,230,252,76,32,192,133,250,169,25,229,250,133,214,169,0,133,211
200 DATA 32,108,229,174,158,192,164,251,185,160,192,168,32,24,234,230,252
210 DATA 230,251,165,251,201,13,176,3,76,32,192,238,159,192,160,0,185
220 REM DATA 230,251,165,251,201,13,176,3,76,32,192,206,159,192,160,0,185
230 DATA 0,193,153,0,0,200,208,247,172,13,221,76,94,254,1,0